'#sec:Main
10 cls:color 9
20 print "RELACION DE DIBUJO A BMP"
30 color 0
40 input "Ancho bmp en dots?",b
45 if b=0 then goto 120
50 input "Ancho real mm?",a
55 if a=0 then goto 120
60 r=(b/10):r=a/r
70 ? "Relacion=";
80 color 12
90 ? r:color 0
110 goto 40
120 end
'